/WMDevList [ 
(11.13x15.3)
(11.67x45)
(110x220envelope)
(11x17)
(12.69x17.52)
(12.69x17.53)
(12x18)
(13.33x22.75)
(162x229envelope)
(176x250envelope)
(17x11)
(18x12)
(18x22)
(18x24)
(18x64)
(26x20)
(3.875x7.5)
(3.875x7.5envelope)
(3.875x8.875envelope)
(35mm)
(3x4)
(4.125x9.5)
(4.125x9.5envelope)
(4x5)
(5.5x8.5)
(6.83x9.26)
(7x9)
(8.16x11.125)
(8.5x13)
(8x10)
(9.26x12.69)
(9.5x12)
(9.5x15)
(A3)
(A4)
(A5)
(B4)
(B5)
(Legal)
(Letter)
(Tabloid)
(a3)
(a4)
(a4.transverse)
(a4R)
(a4long)
(a4small)
(a5)
(a6)
(aplus)
(asuper)
(b4)
(b5)
(b5.transverse)
(b5R)
(b6)
(berliner)
(bplus)
(bsuper)
(c5)
(c5envelope)
(com10)
(com10envelope)
(dl)
(dlenvelope)
(envelope)
(execpaper)
(executive)
(executivepage)
(f4)
(flsa)
(flse)
(folio)
(fulla4)
(glg)
(glt)
(hagaki)
(halfletter)
(ledger)
(legal)
(legalsmall)
(letter)
(letter.transverse)
(letterR)
(lettersmall)
(monarcenvelope)
(monarch)
(otherenvelope)
(postcard)
(spa4)
(speciala4)
(spletter)
 ] def

WMDevList { /myStr 2 1 roll def
 myStr cvlit userdict 2 1 roll known {
 /oldLitName 30 string def
 (/OldWM) /oldLitName load copy pop 
 /oldLitName load 6 myStr putinterval
 oldLitName cvlit userdict myStr cvlit get def
 userdict myStr cvlit {
   oldLitName cvx exec WMDrawMark 
  } put
 } if
} forall

systemdict /setpagedevice known {
 /OldWMSetPage systemdict /setpagedevice get def
 userdict /setpagedevice { OldWMSetPage WMDrawMark } put
} if


psb